home *** CD-ROM | disk | FTP | other *** search
/ Hottest 6 / Hottest 6 (1996)(PDSoft)[!].iso / software / programming / c / sc6_3 / install-6.3-patch < prev    next >
Text File  |  1978-11-24  |  61KB  |  1,858 lines
  1. (complete 0)
  2. (set @default-dest "SC:")
  3.  
  4.  
  5. (if (= (getassign "t") "")
  6.   (makeassign "t" "ram:")
  7. )
  8.  
  9. (set answer1
  10.     (askchoice
  11.         (prompt "Choose where to install 6.3 Patch")
  12.         (choices "Hard Disk" "Floppy Disk")
  13.         (help "Selecting Hard Disk will patch the files in SC: by reading "
  14.               "the original files from the master floppies, and writing "
  15.               "the new version to its proper place in the SC: directory. "
  16.               "Selecting Floppy Disk will patch the set of 2 or 3 disks "
  17.               "created by the Floppy install.\n\n"
  18.               "Neither of these choices will modify any files on the originals."
  19.         )
  20.      (default 0)
  21.     )
  22. )
  23.  
  24.  
  25. (makedir "t:temp_6.3_patch_x12")
  26. (copyfiles (source "spatch") (dest "t:temp_6.3_patch_x12"))
  27. (copyfiles (source "scompact") (dest "t:temp_6.3_patch_x12"))
  28. (copyfiles (source "flush") (dest "t:temp_6.3_patch_x12"))
  29.  
  30.  
  31. (if (= answer1 0)
  32. (
  33.  
  34.    (set answer2
  35.     (askchoice
  36.         (prompt "Do you want the patched header files compressed?")
  37.         (choices "Yes" "No")
  38.         (help "If you originally installed the headers files "
  39.               "compressed, then you probably want to select "
  40.               "YES now. Otherwise choose NO"
  41.         )
  42.      (default 1)
  43.     )
  44.    )
  45.  
  46.    (makedir "t:temp_6.3_patch_x123")
  47.    (copyfiles (source "read.pch") (dest "t:temp_6.3_patch_x123"))
  48.    (copyfiles (source "sc.pch") (dest "t:temp_6.3_patch_x123"))
  49.    (copyfiles (source "smake.pch") (dest "t:temp_6.3_patch_x123"))
  50.    (copyfiles (source "slink.pch") (dest "t:temp_6.3_patch_x123"))
  51.    (copyfiles (source "se.pch") (dest "t:temp_6.3_patch_x123"))
  52.    (copyfiles (source "sedat.pch") (dest "t:temp_6.3_patch_x123"))
  53.    (copyfiles (source "scopts.pch") (dest "t:temp_6.3_patch_x123"))
  54.    (copyfiles (source "scmsg.pch") (dest "t:temp_6.3_patch_x123"))
  55.    (copyfiles (source "sc1.pch") (dest "t:temp_6.3_patch_x123"))
  56.    (copyfiles (source "sc2.pch") (dest "t:temp_6.3_patch_x123"))
  57.    (copyfiles (source "scdebug.pch") (dest "t:temp_6.3_patch_x123"))
  58.  
  59.    (askdisk (assigns) (dest "SASC_6.0_Disk_1")
  60.         (prompt "Please Insert Disk 1 of the SAS/C Development System")
  61.         (help "Insert Disk 1 in any drive. The files will be read from "
  62.           "Disk 1, and placed in SC:. Nothing on Disk 1 will be "
  63.           "modified." 
  64.         )
  65.    ) 
  66.  
  67. (copyfiles (source "SASC_6.0_Disk_1:more") (dest "t:temp_6.3_patch_x12"))
  68.  
  69. (complete 1)
  70.    (if (exists "sc:read.me")
  71.       (
  72.      (working "Patching read.me")
  73.      (run ("t:temp_6.3_patch_x12/spatch -osc:read.me -pt:temp_6.3_patch_x123/read.pch SASC_6.0_Disk_1:read.me"))
  74.       )
  75.    )
  76.    (delete "t:temp_6.3_patch_x123/read.pch")
  77.  
  78. (complete 2)
  79.    (if (exists "sc:c/sc")
  80.       (
  81.      (working "Patching sc")
  82.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/sc -pt:temp_6.3_patch_x123/sc.pch SASC_6.0_Disk_1:compiler/c/sc"))
  83.       )
  84.    )
  85.    (delete "t:temp_6.3_patch_x123/sc.pch")
  86.    
  87. (complete 3)
  88.  
  89.    (if (exists "sc:c/smake")
  90.       (
  91.      (working "Patching smake")
  92.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/smake -pt:temp_6.3_patch_x123/smake.pch sasc_6.0_Disk_1:compiler/c/smake"))
  93.       )
  94.    )
  95.    (delete "t:temp_6.3_patch_x123/smake.pch")
  96.  
  97. (complete 5)
  98.    (if (exists "sc:c/scopts")
  99.       (
  100.      (working "Patching scopts")
  101.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/scopts -pt:temp_6.3_patch_x123/scopts.pch sasc_6.0_Disk_1:compiler/c/scopts" ))
  102.       )
  103.    )
  104.    (delete "t:temp_6.3_patch_x123/scopts.pch")
  105.    
  106. (complete 6)
  107.    (if (exists "sc:c/scmsg")
  108.       (
  109.      (working "Patching scmsg")
  110.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/scmsg -pt:temp_6.3_patch_x123/scmsg.pch sasc_6.0_Disk_1:compiler/c/scmsg" ))
  111.       )
  112.    )
  113.    (delete "t:temp_6.3_patch_x123/scmsg.pch")
  114.    
  115. (complete 8)
  116.    (if (exists "sc:c/slink")
  117.       (
  118.      (working "Patching slink")
  119.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/slink -pt:temp_6.3_patch_x123/slink.pch SASC_6.0_Disk_1:compiler/c/slink" ))
  120.       )
  121.    )
  122.    (delete "t:temp_6.3_patch_x123/slink.pch")
  123.    
  124.    
  125. (complete 9)
  126.    (if (exists "sc:c/se")
  127.       (
  128.      (working "Patching se")
  129.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/se -pt:temp_6.3_patch_x123/se.pch sasc_6.0_Disk_1:compiler/c/se" ))
  130.       )
  131.    )
  132.    (delete "t:temp_6.3_patch_x123/se.pch")
  133.  
  134.    (if (exists "sc:env/se.dat")
  135.       (
  136.      (working "Patching se.dat")
  137.      (run ("t:temp_6.3_patch_x12/spatch -osc:env/se.dat -pt:temp_6.3_patch_x123/sedat.pch sasc_6.0_Disk_1:compiler/env/se.dat" ))
  138.       )
  139.    )
  140.    (delete "t:temp_6.3_patch_x123/sedat.pch")
  141.    
  142.    
  143.    
  144. (complete 11)
  145.    (if (exists "sc:libs/sc1.library")
  146.       (
  147.      (working "Patching sc1.library")
  148.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/sc1.library -pt:temp_6.3_patch_x123/sc1.pch sasc_6.0_Disk_1:compiler/libs/sc1.library" ))
  149.       )
  150.    )
  151.    (delete "t:temp_6.3_patch_x123/sc1.pch")
  152.    
  153. (complete 13)
  154.    (if (exists "sc:libs/sc2.library")
  155.       (
  156.      (working "Patching sc2.library")
  157.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/sc2.library -pt:temp_6.3_patch_x123/sc2.pch sasc_6.0_Disk_1:compiler/libs/sc2.library" ))
  158.       )
  159.    )
  160.    (delete "t:temp_6.3_patch_x123/sc2.pch")
  161.    
  162.    (if (exists "sc:libs/scdebug.library")
  163.       (
  164.      (working "Patching scdebug.library")
  165.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/scdebug.library -pt:temp_6.3_patch_x123/scdebug.pch sasc_6.0_Disk_1:compiler/libs/scdebug.library" ))
  166.       )
  167.    )
  168.    
  169.  
  170. (run "delete t:temp_6.3_patch_x123/#? quiet")
  171. (copyfiles (source "sclib.pch") (dest "t:temp_6.3_patch_x123"))
  172. (copyfiles (source "scs.pch") (dest "t:temp_6.3_patch_x123"))
  173. (copyfiles (source "scnb.pch") (dest "t:temp_6.3_patch_x123"))
  174. (copyfiles (source "scsnb.pch") (dest "t:temp_6.3_patch_x123"))
  175. (copyfiles (source "scm.pch") (dest "t:temp_6.3_patch_x123"))
  176. (copyfiles (source "scms.pch") (dest "t:temp_6.3_patch_x123"))
  177. (copyfiles (source "scmieee.pch") (dest "t:temp_6.3_patch_x123"))
  178. (copyfiles (source "scmffp.pch") (dest "t:temp_6.3_patch_x123"))
  179. (copyfiles (source "scm881.pch") (dest "t:temp_6.3_patch_x123"))
  180. (copyfiles (source "c.pch") (dest "t:temp_6.3_patch_x123"))
  181. (copyfiles (source "cres.pch") (dest "t:temp_6.3_patch_x123"))
  182. (copyfiles (source "catch.pch") (dest "t:temp_6.3_patch_x123"))
  183. (copyfiles (source "catchres.pch") (dest "t:temp_6.3_patch_x123"))
  184. (copyfiles (source "catchresnr.pch") (dest "t:temp_6.3_patch_x123"))
  185. (copyfiles (source "catchnr.pch") (dest "t:temp_6.3_patch_x123"))
  186. (copyfiles (source "cback.pch") (dest "t:temp_6.3_patch_x123"))
  187. (copyfiles (source "libinit.pch") (dest "t:temp_6.3_patch_x123"))
  188. (copyfiles (source "libinitr.pch") (dest "t:temp_6.3_patch_x123"))
  189.  
  190.    
  191.    (askdisk (assigns) (dest "SASC_6.0_Disk_2")
  192.         (prompt "Please Insert Disk 2 of the SAS/C Development System")
  193.         (help "Insert Disk 2 in any drive. The files will be read from "
  194.           "Disk 2, and placed in SC:. Nothing on Disk 2 will be "
  195.           "modified." 
  196.         )
  197.    ) 
  198.    
  199. (complete 15)
  200.    (if (exists "sc:lib/sc.lib")
  201.       (
  202.      (working "Patching sc.lib")
  203.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/sc.lib -pt:temp_6.3_patch_x123/sclib.pch sasc_6.0_Disk_2:libraries/lib/sc.lib" ))
  204.       )
  205.    )
  206.    (delete "t:temp_6.3_patch_x123/sclib.pch")
  207.    
  208. (complete 16)
  209.    (if (exists "sc:lib/scs.lib")
  210.       (
  211.      (working "Patching scs.lib")
  212.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scs.lib -pt:temp_6.3_patch_x123/scs.pch sasc_6.0_Disk_2:libraries/lib/scs.lib" ))
  213.       )
  214.    )
  215.    (delete "t:temp_6.3_patch_x123/scs.pch")
  216.    
  217.    
  218. (complete 17)
  219.    (if (exists "sc:lib/scnb.lib")
  220.       (
  221.      (working "Patching scnb.lib")
  222.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scnb.lib -pt:temp_6.3_patch_x123/scnb.pch sasc_6.0_Disk_2:libraries/lib/scnb.lib" ))
  223.       )
  224.    )
  225.    (delete "t:temp_6.3_patch_x123/scnb.pch")
  226.    
  227. (complete 19)
  228.    (if (exists "sc:lib/scsnb.lib")
  229.       (
  230.      (working "Patching scsnb.lib")
  231.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scsnb.lib -pt:temp_6.3_patch_x123/scsnb.pch sasc_6.0_Disk_2:libraries/lib/scsnb.lib" ))
  232.       )
  233.    )
  234.    (delete "t:temp_6.3_patch_x123/scsnb.pch")
  235.    
  236. (complete 21)
  237.    (if (exists "sc:lib/scm.lib")
  238.       (
  239.      (working "Patching scm.lib")
  240.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scm.lib -pt:temp_6.3_patch_x123/scm.pch sasc_6.0_Disk_2:libraries/lib/scm.lib" ))
  241.       )
  242.    )
  243.    (delete "t:temp_6.3_patch_x123/scm.pch")
  244.    
  245. (complete 22)
  246.    (if (exists "sc:lib/scms.lib")
  247.       (
  248.      (working "Patching scms.lib")
  249.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scms.lib -pt:temp_6.3_patch_x123/scms.pch sasc_6.0_Disk_2:libraries/lib/scms.lib" ))
  250.       )
  251.    )
  252.    (delete "t:temp_6.3_patch_x123/scms.pch")
  253.    
  254. (complete 23)
  255.    (if (exists "sc:lib/scmieee.lib")
  256.       (
  257.      (working "Patching scmieee.lib")
  258.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scmieee.lib -pt:temp_6.3_patch_x123/scmieee.pch sasc_6.0_Disk_2:libraries/lib/scmieee.lib" ))
  259.       )
  260.    )
  261.    (delete "t:temp_6.3_patch_x123/scmieee.pch")
  262.    
  263. (complete 24)
  264.    (if (exists "sc:lib/scmffp.lib")
  265.       (
  266.      (working "Patching scmffp.lib")
  267.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scmffp.lib -pt:temp_6.3_patch_x123/scmffp.pch sasc_6.0_Disk_2:libraries/lib/scmffp.lib" ))
  268.       )
  269.    )
  270.    
  271. (complete 25)
  272.    (if (exists "sc:lib/scm881.lib")
  273.       (
  274.      (working "Patching scm881.lib")
  275.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/scm881.lib -pt:temp_6.3_patch_x123/scm881.pch sasc_6.0_Disk_2:libraries/lib/scm881.lib" ))
  276.       )
  277.    )
  278.  
  279. (complete 26)
  280.    (if (exists "sc:lib/c.o")
  281.       (
  282.      (working "Patching c.o")
  283.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/c.o -pt:temp_6.3_patch_x123/c.pch sasc_6.0_Disk_2:libraries/lib/c.o" ))
  284.       )
  285.    )
  286.  
  287. (complete 27)
  288.    (if (exists "sc:lib/cres.o")
  289.       (
  290.      (working "Patching cres.o")
  291.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/cres.o -pt:temp_6.3_patch_x123/cres.pch sasc_6.0_Disk_2:libraries/lib/cres.o" ))
  292.       )
  293.    )
  294.  
  295. (complete 28)
  296.    (if (exists "sc:lib/catch.o")
  297.       (
  298.      (working "Patching catch.o")
  299.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/catch.o -pt:temp_6.3_patch_x123/catch.pch sasc_6.0_Disk_2:libraries/lib/catch.o" ))
  300.       )
  301.    )
  302.  
  303. (complete 29)
  304.    (if (exists "sc:lib/catchresnr.o")
  305.       (
  306.      (working "Patching catchresnr.o")
  307.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/catchresnr.o -pt:temp_6.3_patch_x123/catchresnr.pch sasc_6.0_Disk_2:libraries/lib/catchresnr.o" ))
  308.       )
  309.    )
  310.  
  311. (complete 30)
  312.    (if (exists "sc:lib/catchres.o")
  313.       (
  314.      (working "Patching catchres.o")
  315.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/catchres.o -pt:temp_6.3_patch_x123/catchres.pch sasc_6.0_Disk_2:libraries/lib/catchres.o" ))
  316.       )
  317.    )
  318.  
  319. (complete 31)
  320.    (if (exists "sc:lib/catchnr.o")
  321.       (
  322.      (working "Patching catchnr.o")
  323.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/catchnr.o -pt:temp_6.3_patch_x123/catchnr.pch sasc_6.0_Disk_2:libraries/lib/catchnr.o" ))
  324.       )
  325.    )
  326.  
  327. (complete 32)
  328.    (if (exists "sc:lib/cback.o")
  329.       (
  330.      (working "Patching cback.o")
  331.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/cback.o -pt:temp_6.3_patch_x123/cback.pch sasc_6.0_Disk_2:libraries/lib/cback.o" ))
  332.       )
  333.    )
  334.  
  335.    (if (exists "sc:lib/libinit.o")
  336.       (
  337.      (working "Patching libinit.o")
  338.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/libinit.o -pt:temp_6.3_patch_x123/libinit.pch sasc_6.0_Disk_2:libraries/lib/libinit.o" ))
  339.       )
  340.    )
  341.  
  342.    (if (exists "sc:lib/libinitr.o")
  343.       (
  344.      (working "Patching libinitr.o")
  345.      (run ("t:temp_6.3_patch_x12/spatch -osc:lib/libinitr.o -pt:temp_6.3_patch_x123/libinitr.pch sasc_6.0_Disk_2:libraries/lib/libinitr.o" ))
  346.       )
  347.    )
  348.    
  349. (run "delete t:temp_6.3_patch_x123/#? quiet")
  350. (copyfiles (source "cpr.pch") (dest "t:temp_6.3_patch_x123"))
  351.  
  352.    (askdisk (assigns) (dest "SASC_6.0_Disk_3")
  353.         (prompt "Please Insert Disk 3 of the SAS/C Development System")
  354.         (help "Insert Disk 3 in any drive. The files will be read from "
  355.           "Disk 3, and placed in SC:. Nothing on Disk 3 will be "
  356.           "modified." 
  357.         )
  358.    ) 
  359.    
  360. (complete 34)
  361.    (if (exists "sc:c/cpr")
  362.       (
  363.      (working "Patching cpr")
  364.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/cpr -pt:temp_6.3_patch_x123/cpr.pch sasc_6.0_Disk_3:Debugger/c/cpr" ))
  365.       )
  366.    )
  367.    (delete "t:temp_6.3_patch_x123/cpr.pch")
  368.    
  369.    (askdisk (assigns) (dest "SASC_6.0_Disk_3")
  370.         (prompt "Please Insert Disk 3 of the SAS/C Development System")
  371.         (help "Insert Disk 3 in any drive. The files will be read from "
  372.           "Disk 3, and placed in SC:. Nothing on Disk 3 will be "
  373.           "modified." 
  374.         )
  375.    ) 
  376. (copyfiles (source "cprx.pch") (dest "t:temp_6.3_patch_x123"))
  377.  
  378. (complete 37)
  379.    (if (exists "sc:c/cprx")
  380.       (
  381.      (working "Patching cprx")
  382.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/cprx -pt:temp_6.3_patch_x123/cprx.pch sasc_6.0_Disk_3:Cross_Debugger/c/cprx" ))
  383.       )
  384.    )
  385.    (delete "t:temp_6.3_patch_x123/cprx.pch")
  386.  
  387.  
  388.  
  389.  
  390. (copyfiles (source "cprk.pch") (dest "t:temp_6.3_patch_x123"))
  391. (copyfiles (source "schi.pch") (dest "t:temp_6.3_patch_x123"))
  392. (copyfiles (source "scpeep.pch") (dest "t:temp_6.3_patch_x123"))
  393. (copyfiles (source "scgo.pch") (dest "t:temp_6.3_patch_x123"))
  394. (copyfiles (source "fcntl.pch") (dest "t:temp_6.3_patch_x123"))
  395. (copyfiles (source "stdio.pch") (dest "t:temp_6.3_patch_x123"))
  396. (copyfiles (source "stdlib.pch") (dest "t:temp_6.3_patch_x123"))
  397. (copyfiles (source "math.pch") (dest "t:temp_6.3_patch_x123"))
  398. (copyfiles (source "stat.pch") (dest "t:temp_6.3_patch_x123"))
  399. (copyfiles (source "dos.pch") (dest "t:temp_6.3_patch_x123"))
  400. (copyfiles (source "m68881.pch") (dest "t:temp_6.3_patch_x123"))
  401. (copyfiles (source "mffp.pch") (dest "t:temp_6.3_patch_x123"))
  402. (copyfiles (source "mieeedoub.pch") (dest "t:temp_6.3_patch_x123"))
  403. (copyfiles (source "stdarg.pch") (dest "t:temp_6.3_patch_x123"))
  404. (copyfiles (source "dir.pch") (dest "t:temp_6.3_patch_x123"))
  405.  
  406.  
  407.    (askdisk (assigns) (dest "SASC_6.0_Disk_3")
  408.         (prompt "Please Insert Disk 3 of the SAS/C Development System")
  409.         (help "Insert Disk 3 in any drive. The files will be read from "
  410.           "Disk 3, and placed in SC:. Nothing on Disk 3 will be "
  411.           "modified." 
  412.         )
  413.    ) 
  414.    
  415.    
  416. (complete 40)
  417.    (if (exists "sc:c/cprk")
  418.       (
  419.      (working "Patching cprk")
  420.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/cprk -pt:temp_6.3_patch_x123/cprk.pch sasc_6.0_Disk_3:Cross_Debugger/c/cprk" ))
  421.       )
  422.    )
  423.    (delete "t:temp_6.3_patch_x123/cprk.pch")
  424.    
  425.    
  426. (complete 42)
  427.    (if (exists "sc:libs/schi.library")
  428.       (
  429.      (working "Patching schi.library")
  430.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/schi.library -pt:temp_6.3_patch_x123/schi.pch sasc_6.0_Disk_3:Debugger/libs/schi.library" ))
  431.       )
  432.    )
  433.    (delete "t:temp_6.3_patch_x123/schi.pch")
  434.    
  435.    
  436. (complete 44)
  437.    (if (exists "sc:libs/scpeep.library")
  438.       (
  439.      (working "Patching scpeep.library")
  440.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/scpeep.library -pt:temp_6.3_patch_x123/scpeep.pch sasc_6.0_Disk_3:Optimizers/libs/scpeep.library" ))
  441.       )
  442.    )
  443.    (delete "t:temp_6.3_patch_x123/scpeep.pch")
  444.  
  445.    (if (exists "sc:libs/scgo.library")
  446.       (
  447.      (working "Patching scgo.library")
  448.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/scgo.library -pt:temp_6.3_patch_x123/scgo.pch sasc_6.0_Disk_3:Optimizers/libs/scgo.library" ))
  449.       )
  450.    )
  451.    (delete "t:temp_6.3_patch_x123/scgo.pch")
  452.  
  453.  
  454.  
  455.  
  456.  
  457.    (if (AND (= @pretend 0) (exists "sc:c/scompact"))
  458.      (copyfiles (source "t:temp_6.3_patch_x12/scompact") (dest "sc:c"))
  459.       
  460.    )
  461.  
  462.    
  463.    (if (exists "sc:include/stdio.h")
  464.       (
  465.      (working "Patching stdio.h")
  466.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/stdio.h -pt:temp_6.3_patch_x123/stdio.pch sasc_6.0_Disk_3:compiler_headers/include/stdio.h" ))
  467.      (if (= answer2 0)
  468.       (
  469.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/stdio.h t:temp_6.3_patch_x12/stdio.h"))
  470.        (if (= 0 @pretend)
  471.         (
  472.          (copyfiles (source "t:temp_6.3_patch_x12/stdio.h") 
  473.             (dest "sc:include")
  474.          )
  475.          (delete "t:temp_6.3_patch_x12/stdio.h")
  476.         )
  477.        )
  478.       )
  479.      )
  480.       )
  481.    )
  482.    
  483.  
  484. (complete 45)
  485.    (if (exists "sc:include/fcntl.h")
  486.       (
  487.      (working "Patching fcntl.h")
  488.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/fcntl.h -pt:temp_6.3_patch_x123/fcntl.pch sasc_6.0_Disk_3:compiler_headers/include/fcntl.h" ))
  489.      (if (= answer2 0)
  490.       (
  491.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/fcntl.h t:temp_6.3_patch_x12/fcntl.h"))
  492.        (if (= 0 @pretend)
  493.         (
  494.          (copyfiles (source "t:temp_6.3_patch_x12/fcntl.h") 
  495.             (dest "sc:include")
  496.          )
  497.          (delete "t:temp_6.3_patch_x12/fcntl.h")
  498.         )
  499.        )
  500.       )
  501.      )
  502.       )
  503.    )
  504.    
  505.  
  506.    (if (exists "sc:include/stdlib.h")
  507.       (
  508.      (working "Patching stdlib.h")
  509.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/stdlib.h -pt:temp_6.3_patch_x123/stdlib.pch sasc_6.0_Disk_3:compiler_headers/include/stdlib.h" ))
  510.      (if (= answer2 0)
  511.       (
  512.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/stdlib.h t:temp_6.3_patch_x12/stdlib.h"))
  513.        (if (= 0 @pretend)
  514.         (
  515.          (copyfiles (source "t:temp_6.3_patch_x12/stdlib.h") 
  516.             (dest "sc:include")
  517.          )
  518.          (delete "t:temp_6.3_patch_x12/stdlib.h")
  519.         )
  520.        )
  521.       )
  522.      )
  523.       )
  524.    )
  525.  
  526.    (if (exists "sc:include/math.h")
  527.       (
  528.      (working "Patching math.h")
  529.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/math.h -pt:temp_6.3_patch_x123/math.pch sasc_6.0_Disk_3:compiler_headers/include/math.h" ))
  530.      (if (= answer2 0)
  531.       (
  532.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/math.h t:temp_6.3_patch_x12/math.h"))
  533.        (if (= 0 @pretend)
  534.         (
  535.          (copyfiles (source "t:temp_6.3_patch_x12/math.h") 
  536.             (dest "sc:include")
  537.          )
  538.          (delete "t:temp_6.3_patch_x12/math.h")
  539.         )
  540.        )
  541.       )
  542.      )
  543.       )
  544.    )
  545.    
  546.  
  547. (complete 46)
  548.    (if (exists "sc:include/stat.h")
  549.       (
  550.      (working "Patching stat.h")
  551.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/stat.h -pt:temp_6.3_patch_x123/stat.pch sasc_6.0_Disk_3:compiler_headers/include/stat.h" ))
  552.      (if (= answer2 0)
  553.       (
  554.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/stat.h t:temp_6.3_patch_x12/stat.h"))
  555.        (if (= 0 @pretend)
  556.         (
  557.          (copyfiles (source "t:temp_6.3_patch_x12/stat.h") 
  558.             (dest "sc:include")
  559.          )
  560.          (delete "t:temp_6.3_patch_x12/stat.h")
  561.         )
  562.        )
  563.       )
  564.      )
  565.       )
  566.    )
  567.  
  568. (complete 47)
  569.    (if (exists "sc:include/dos.h")
  570.       (
  571.      (working "Patching dos.h")
  572.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/dos.h -pt:temp_6.3_patch_x123/dos.pch sasc_6.0_Disk_3:compiler_headers/include/dos.h" ))
  573.      (if (= answer2 0)
  574.       (
  575.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/dos.h t:temp_6.3_patch_x12/dos.h"))
  576.        (if (= 0 @pretend)
  577.         (
  578.          (copyfiles (source "t:temp_6.3_patch_x12/dos.h") 
  579.             (dest "sc:include")
  580.          )
  581.          (delete "t:temp_6.3_patch_x12/dos.h")
  582.         )
  583.        )
  584.       )
  585.      )
  586.       )
  587.    )
  588.  
  589. (complete 48)
  590.    (if (exists "sc:include/m68881.h")
  591.       (
  592.      (working "Patching m68881.h")
  593.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/m68881.h -pt:temp_6.3_patch_x123/m68881.pch sasc_6.0_Disk_3:compiler_headers/include/m68881.h" ))
  594.      (if (= answer2 0)
  595.       (
  596.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/m68881.h t:temp_6.3_patch_x12/m68881.h"))
  597.        (if (= 0 @pretend)
  598.         (
  599.          (copyfiles (source "t:temp_6.3_patch_x12/m68881.h") 
  600.             (dest "sc:include")
  601.          )
  602.          (delete "t:temp_6.3_patch_x12/m68881.h")
  603.         )
  604.        )
  605.       )
  606.      )
  607.       )
  608.    )
  609.    (if (exists "sc:include/mffp.h")
  610.       (
  611.      (working "Patching mffp.h")
  612.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/mffp.h -pt:temp_6.3_patch_x123/mffp.pch sasc_6.0_Disk_3:compiler_headers/include/mffp.h" ))
  613.      (if (= answer2 0)
  614.       (
  615.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/mffp.h t:temp_6.3_patch_x12/mffp.h"))
  616.        (if (= 0 @pretend)
  617.         (
  618.          (copyfiles (source "t:temp_6.3_patch_x12/mffp.h") 
  619.             (dest "sc:include")
  620.          )
  621.          (delete "t:temp_6.3_patch_x12/mffp.h")
  622.         )
  623.        )
  624.       )
  625.      )
  626.       )
  627.    )
  628.  
  629.    (if (exists "sc:include/mieeedoub.h")
  630.       (
  631.      (working "Patching mieeedoub.h")
  632.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/mieeedoub.h -pt:temp_6.3_patch_x123/mieeedoub.pch sasc_6.0_Disk_3:compiler_headers/include/mieeedoub.h" ))
  633.      (if (= answer2 0)
  634.       (
  635.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/mieeedoub.h t:temp_6.3_patch_x12/mieeedoub.h"))
  636.        (if (= 0 @pretend)
  637.         (
  638.          (copyfiles (source "t:temp_6.3_patch_x12/mieeedoub.h") 
  639.             (dest "sc:include")
  640.          )
  641.          (delete "t:temp_6.3_patch_x12/mieeedoub.h")
  642.         )
  643.        )
  644.       )
  645.      )
  646.       )
  647.    )
  648.  
  649. (complete 49)
  650.    (if (exists "sc:include/stdarg.h")
  651.       (
  652.      (working "Patching stdarg.h")
  653.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/stdarg.h -pt:temp_6.3_patch_x123/stdarg.pch sasc_6.0_Disk_3:compiler_headers/include/stdarg.h" ))
  654.      (if (= answer2 0)
  655.       (
  656.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/stdarg.h t:temp_6.3_patch_x12/stdarg.h"))
  657.        (if (= 0 @pretend)
  658.         (
  659.          (copyfiles (source "t:temp_6.3_patch_x12/stdarg.h") 
  660.             (dest "sc:include")
  661.          )
  662.          (delete "t:temp_6.3_patch_x12/stdarg.h")
  663.         )
  664.        )
  665.       )
  666.      )
  667.       )
  668.    )
  669.  
  670. (complete 50)
  671.    (if (exists "sc:include/sys/dir.h")
  672.       (
  673.      (working "Patching sys/dir.h")
  674.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/sys/dir.h -pt:temp_6.3_patch_x123/dir.pch sasc_6.0_Disk_3:compiler_headers/include/sys/dir.h" ))
  675.      (if (= answer2 0)
  676.       (
  677.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/sys/dir.h t:temp_6.3_patch_x12/dir.h"))
  678.        (if (= 0 @pretend)
  679.         (
  680.          (copyfiles (source "t:temp_6.3_patch_x12/dir.h") 
  681.             (dest "sc:include/sys")
  682.          )
  683.          (delete "t:temp_6.3_patch_x12/dir.h")
  684.         )
  685.        )
  686.       )
  687.      )
  688.       )
  689.    )
  690.    
  691.  
  692. (run "delete t:temp_6.3_patch_x123/#? quiet")
  693. (copyfiles (source "all.pch") (dest "t:temp_6.3_patch_x123"))
  694. (copyfiles (source "layers.pch") (dest "t:temp_6.3_patch_x123"))
  695. (copyfiles (source "intuition_pragmas.pch") (dest "t:temp_6.3_patch_x123"))
  696. (copyfiles (source "exec_pragmas.pch") (dest "t:temp_6.3_patch_x123"))
  697. (copyfiles (source "exec_sysbase_pragmas.pch") (dest "t:temp_6.3_patch_x123"))
  698. (copyfiles (source "all_protos.pch") (dest "t:temp_6.3_patch_x123"))
  699.  
  700.  
  701.    (askdisk (assigns) (dest "SASC_6.0_Disk_4")
  702.         (prompt "Please Insert Disk 4 of the SAS/C Development System")
  703.         (help "Insert Disk 4 in any drive. The files will be read from "
  704.           "Disk 4, and placed in SC:. Nothing on Disk 4 will be "
  705.           "modified." 
  706.         )
  707.    ) 
  708.  
  709.  
  710.  
  711.  
  712.    (if (= answer2 0)
  713.       (
  714.      (if (exists "sc:include/dos/stdio.h")
  715.        (
  716.           (run ("t:temp_6.3_patch_x12/scompact force SASC_6.0_Disk_4:compiler_headers/include/dos/stdio.h t:temp_6.3_patch_x12/stdio.h"))
  717.           (if (= 0 @pretend)
  718.         (
  719.            (copyfiles (source "t:temp_6.3_patch_x12/stdio.h") 
  720.             (dest "sc:include/dos")
  721.            )
  722.         )
  723.         (delete "t:temp_6.3_patch_x12/stdio.h")
  724.           )
  725.        )
  726.      )
  727.       )
  728.    )
  729.  
  730.  
  731.  
  732.  
  733.  
  734. (complete 51)
  735.    (if (exists "sc:include/proto/all.h")
  736.       (
  737.      (working "Patching proto/all.h")
  738.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/proto/all.h -pt:temp_6.3_patch_x123/all.pch sasc_6.0_Disk_4:compiler_headers/include/proto/all.h" ))
  739.      (if (= answer2 0)
  740.       (
  741.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/proto/all.h t:temp_6.3_patch_x12/all.h"))
  742.        (if (= 0 @pretend)
  743.         (
  744.          (copyfiles (source "t:temp_6.3_patch_x12/all.h") 
  745.             (dest "sc:include/proto")
  746.          )
  747.          (delete "t:temp_6.3_patch_x12/all.h")
  748.         )
  749.        )
  750.       )
  751.      )
  752.       )
  753.    )
  754.  
  755. (complete 52)
  756.    (if (exists "sc:include/proto/layers.h")
  757.       (
  758.      (working "Patching proto/layers.h")
  759.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/proto/layers.h -pt:temp_6.3_patch_x123/layers.pch sasc_6.0_Disk_4:compiler_headers/include/proto/layers.h" ))
  760.      (if (= answer2 0)
  761.       (
  762.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/proto/layers.h t:temp_6.3_patch_x12/layers.h"))
  763.        (if (= 0 @pretend)
  764.         (
  765.          (copyfiles (source "t:temp_6.3_patch_x12/layers.h") 
  766.             (dest "sc:include/proto")
  767.          )
  768.          (delete "t:temp_6.3_patch_x12/layers.h")
  769.         )
  770.        )
  771.       )
  772.      )
  773.       )
  774.    )
  775.  
  776. (complete 53)
  777.    (if (exists "sc:include/pragmas/intuition_pragmas.h")
  778.       (
  779.      (working "Patching pragmas/intuition_pragmas.h")
  780.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/pragmas/intuition_pragmas.h -pt:temp_6.3_patch_x123/intuition_pragmas.pch sasc_6.0_Disk_4:compiler_headers/include/pragmas/intuition_pragmas.h" ))
  781.      (if (= answer2 0)
  782.       (
  783.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/pragmas/intuition_pragmas.h t:temp_6.3_patch_x12/intuition_pragmas.h"))
  784.        (if (= 0 @pretend)
  785.         (
  786.          (copyfiles (source "t:temp_6.3_patch_x12/intuition_pragmas.h") 
  787.             (dest "sc:include/pragmas")
  788.          )
  789.          (delete "t:temp_6.3_patch_x12/intuition_pragmas.h")
  790.         )
  791.        )
  792.       )
  793.      )
  794.       )
  795.    )
  796.  
  797.    (if (exists "sc:include/pragmas/exec_pragmas.h")
  798.       (
  799.      (working "Patching pragmas/exec_pragmas.h")
  800.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/pragmas/exec_pragmas.h -pt:temp_6.3_patch_x123/exec_pragmas.pch sasc_6.0_Disk_4:compiler_headers/include/pragmas/exec_pragmas.h" ))
  801.      (if (= answer2 0)
  802.       (
  803.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/pragmas/exec_pragmas.h t:temp_6.3_patch_x12/exec_pragmas.h"))
  804.        (if (= 0 @pretend)
  805.         (
  806.          (copyfiles (source "t:temp_6.3_patch_x12/exec_pragmas.h") 
  807.             (dest "sc:include/pragmas")
  808.          )
  809.          (delete "t:temp_6.3_patch_x12/exec_pragmas.h")
  810.         )
  811.        )
  812.       )
  813.      )
  814.       )
  815.    )
  816.  
  817.    (if (exists "sc:include/pragmas/exec_sysbase_pragmas.h")
  818.       (
  819.      (working "Patching pragmas/exec_sysbase_pragmas.h")
  820.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/pragmas/exec_sysbase_pragmas.h -pt:temp_6.3_patch_x123/exec_sysbase_pragmas.pch sasc_6.0_Disk_4:compiler_headers/include/pragmas/exec_sysbase_pragmas.h" ))
  821.      (if (= answer2 0)
  822.       (
  823.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/pragmas/exec_sysbase_pragmas.h t:temp_6.3_patch_x12/exec_sysbase_pragmas.h"))
  824.        (if (= 0 @pretend)
  825.         (
  826.          (copyfiles (source "t:temp_6.3_patch_x12/exec_sysbase_pragmas.h") 
  827.             (dest "sc:include/pragmas")
  828.          )
  829.          (delete "t:temp_6.3_patch_x12/exec_sysbase_pragmas.h")
  830.         )
  831.        )
  832.       )
  833.      )
  834.       )
  835.    )
  836.  
  837.    (if (exists "sc:include/clib/all_protos.h")
  838.       (
  839.      (working "Patching clib/all_protos.h")
  840.      (run ("t:temp_6.3_patch_x12/spatch -osc:include/clib/all_protos.h -pt:temp_6.3_patch_x123/all_protos.pch sasc_6.0_Disk_4:compiler_headers/include/clib/all_protos.h" ))
  841.      (if (= answer2 0)
  842.       (
  843.        (run ("t:temp_6.3_patch_x12/scompact force sc:include/clib/all_protos.h t:temp_6.3_patch_x12/all_protos.h"))
  844.        (if (= 0 @pretend)
  845.         (
  846.          (copyfiles (source "t:temp_6.3_patch_x12/all_protos.h") 
  847.             (dest "sc:include/clib")
  848.          )
  849.          (delete "t:temp_6.3_patch_x12/all_protos.h")
  850.         )
  851.        )
  852.       )
  853.      )
  854.       )
  855.    )
  856.  
  857.  
  858.  
  859.  
  860.    
  861. (run "delete t:temp_6.3_patch_x123/#? quiet")
  862. (copyfiles (source "sclist.pch") (dest "t:temp_6.3_patch_x123"))
  863. (copyfiles (source "sekeymap.pch") (dest "t:temp_6.3_patch_x123"))
  864. (copyfiles (source "asm.pch") (dest "t:temp_6.3_patch_x123"))
  865. (copyfiles (source "dumpobj.pch") (dest "t:temp_6.3_patch_x123"))
  866. (copyfiles (source "omd.pch") (dest "t:temp_6.3_patch_x123"))
  867. (copyfiles (source "hypergst.pch") (dest "t:temp_6.3_patch_x123"))
  868.  
  869.  
  870.    (askdisk (assigns) (dest "SASC_6.0_Disk_5")
  871.         (prompt "Please Insert Disk 5 of the SAS/C Development System")
  872.         (help "Insert Disk 5 in any drive. The files will be read from "
  873.           "Disk 5, and placed in SC:. Nothing on Disk 5 will be "
  874.           "modified." 
  875.         )
  876.    )
  877.     
  878. (complete 54)
  879.    (if (exists "sc:libs/sekeymap.library")
  880.       (
  881.      (working "Patching sekeymap.library")
  882.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/sekeymap.library -pt:temp_6.3_patch_x123/sekeymap.pch sasc_6.0_Disk_5:Extra_Utilities/libs/sekeymap.library" ))
  883.       )
  884.    )
  885.  
  886.    (if (exists "sc:libs/sclist.library")
  887.       (
  888.      (working "Patching sclist.library")
  889.      (run ("t:temp_6.3_patch_x12/spatch -osc:libs/sclist.library -pt:temp_6.3_patch_x123/sclist.pch sasc_6.0_Disk_5:Extra_Utilities/libs/sclist.library" ))
  890.       )
  891.    )
  892.    
  893. (complete 56)
  894.    (if (exists "sc:c/asm")
  895.       (
  896.      (working "Patching asm")
  897.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/asm -pt:temp_6.3_patch_x123/asm.pch sasc_6.0_Disk_5:Assembler/c/asm" ))
  898.       )
  899.    )
  900.  
  901. (complete 58)
  902.    (if (exists "sc:c/dumpobj")
  903.       (
  904.      (working "Patching dumpobj")
  905.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/dumpobj -pt:temp_6.3_patch_x123/dumpobj.pch sasc_6.0_Disk_5:Extra_Utilities/c/dumpobj" ))
  906.       )
  907.    )
  908.  
  909. (complete 59)
  910.    (if (exists "sc:c/omd")
  911.       (
  912.      (working "Patching omd")
  913.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/omd -pt:temp_6.3_patch_x123/omd.pch sasc_6.0_Disk_5:Extra_Utilities/c/omd" ))
  914.       )
  915.    )
  916.  
  917. (complete 61)
  918.    (if (exists "sc:c/hypergst")
  919.       (
  920.      (working "Patching hypergst")
  921.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/hypergst -pt:temp_6.3_patch_x123/hypergst.pch sasc_6.0_Disk_5:Extra_Utilities/c/hypergst" ))
  922.       )
  923.    )
  924.    
  925. (run "delete t:temp_6.3_patch_x123/#? quiet")
  926. (copyfiles (source "oml.pch") (dest "t:temp_6.3_patch_x123"))
  927. (copyfiles (source "lstat.pch") (dest "t:temp_6.3_patch_x123"))
  928. (copyfiles (source "lprof.pch") (dest "t:temp_6.3_patch_x123"))
  929. (copyfiles (source "sc5.pch") (dest "t:temp_6.3_patch_x123"))
  930. (copyfiles (source "tb.pch") (dest "t:temp_6.3_patch_x123"))
  931. (copyfiles (source "lctosc.pch") (dest "t:temp_6.3_patch_x123"))
  932. (copyfiles (source "findsym.pch") (dest "t:temp_6.3_patch_x123"))
  933. (copyfiles (source "showcli.pch") (dest "t:temp_6.3_patch_x123"))
  934. (copyfiles (source "showprocess.pch") (dest "t:temp_6.3_patch_x123"))
  935. (copyfiles (source "sc_lib.pch") (dest "t:temp_6.3_patch_x123"))
  936. (copyfiles (source "sc_prob.pch") (dest "t:temp_6.3_patch_x123"))
  937. (copyfiles (source "sc_change.pch") (dest "t:temp_6.3_patch_x123"))
  938. (copyfiles (source "cprguide.pch") (dest "t:temp_6.3_patch_x123"))
  939.  
  940.    (askdisk (assigns) (dest "SASC_6.0_Disk_6")
  941.         (prompt "Please Insert Disk 6 of the SAS/C Development System")
  942.         (help "Insert Disk 6 in any drive. The files will be read from "
  943.           "Disk 6, and placed in SC:. Nothing on Disk 6 will be "
  944.           "modified." 
  945.         )
  946.    ) 
  947.    
  948.  
  949. (complete 63)
  950.    (if (exists "sc:c/oml")
  951.       (
  952.      (working "Patching oml")
  953.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/oml -pt:temp_6.3_patch_x123/oml.pch sasc_6.0_Disk_6:Extra_Utilities/c/oml" ))
  954.       )
  955.    )
  956.    (delete "t:temp_6.3_patch_x123/oml.pch")
  957.    
  958. (complete 64)
  959.    (if (exists "sc:c/lstat")
  960.       (
  961.      (working "Patching lstat")
  962.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/lstat -pt:temp_6.3_patch_x123/lstat.pch sasc_6.0_Disk_6:Extra_Utilities/c/lstat" ))
  963.       )
  964.    )
  965.    (delete "t:temp_6.3_patch_x123/lstat.pch")
  966.    
  967. (complete 66)
  968.    (if (exists "sc:c/lprof")
  969.       (
  970.      (working "Patching lprof")
  971.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/lprof -pt:temp_6.3_patch_x123/lprof.pch sasc_6.0_Disk_6:Extra_Utilities/c/lprof" ))
  972.       )
  973.    )
  974.    (delete "t:temp_6.3_patch_x123/lprof.pch")
  975.    
  976. (complete 68)
  977.    (if (exists "sc:c/sc5")
  978.       (
  979.      (working "Patching sc5")
  980.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/sc5 -pt:temp_6.3_patch_x123/sc5.pch sasc_6.0_Disk_6:Extra_Utilities/c/sc5" ))
  981.       )
  982.    )
  983.    (delete "t:temp_6.3_patch_x123/sc5.pch")
  984.  
  985. (complete 70)
  986.    (if (exists "sc:c/tb")
  987.       (
  988.      (working "Patching tb")
  989.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/tb -pt:temp_6.3_patch_x123/tb.pch sasc_6.0_Disk_6:Extra_Utilities/c/tb" ))
  990.       )
  991.    )
  992.    (delete "t:temp_6.3_patch_x123/tb.pch")
  993.    
  994.    
  995. (complete 72)
  996.    (if (exists "sc:c/lctosc")
  997.       (
  998.      (working "Patching lctosc")
  999.      (run ("t:temp_6.3_patch_x12/spatch -osc:c/lctosc -pt:temp_6.3_patch_x123/lctosc.pch sasc_6.0_Disk_6:Extra_Utilities/c/lctosc" ))
  1000.       )
  1001.    )
  1002.    (delete "t:temp_6.3_patch_x123/lctosc.pch")
  1003.    
  1004. (complete 74)
  1005.    (if (exists "sc:rexx/findsym.se")
  1006.       (
  1007.      (working "Patching findsym.se")
  1008.      (run ("t:temp_6.3_patch_x12/spatch -osc:rexx/findsym.se -pt:temp_6.3_patch_x123/findsym.pch sasc_6.0_Disk_6:Extra_Utilities/rexx/findsym.se" ))
  1009.       )
  1010.    )
  1011.    (delete "t:temp_6.3_patch_x123/findsym.pch")
  1012.    
  1013. (complete 75)
  1014.    (if (exists "sc:rexx/showprocess.cpr")
  1015.       (
  1016.      (working "Patching showprocess.cpr")
  1017.      (run ("t:temp_6.3_patch_x12/spatch -osc:rexx/showprocess.cpr -pt:temp_6.3_patch_x123/showprocess.pch sasc_6.0_Disk_6:Extra_Utilities/rexx/showprocess.cpr" ))
  1018.       )
  1019.    )
  1020.    (delete "t:temp_6.3_patch_x123/showprocess.pch")
  1021.    
  1022. (complete 76)
  1023.    (if (exists "sc:rexx/showcli.cpr")
  1024.       (
  1025.      (working "Patching showcli.cpr")
  1026.      (run ("t:temp_6.3_patch_x12/spatch -osc:rexx/showcli.cpr -pt:temp_6.3_patch_x123/showcli.pch sasc_6.0_Disk_6:Extra_Utilities/rexx/showcli.cpr" ))
  1027.       )
  1028.    )
  1029.    (delete "t:temp_6.3_patch_x123/showcli.pch")
  1030.  
  1031. (complete 77)
  1032.  
  1033.    (if (exists "sc:help/sc_prob.guide")
  1034.       (
  1035.      (working "Patching sc_prob.guide")
  1036.      (run ("t:temp_6.3_patch_x12/spatch -osc:help/sc_prob.guide -pt:temp_6.3_patch_x123/sc_prob.pch sasc_6.0_Disk_6:Online_help/help/sc_prob.guide" ))
  1037.       )
  1038.    )
  1039.    (delete "t:temp_6.3_patch_x123/sc_prob.pch")
  1040.  
  1041. (complete 78)
  1042.    (if (exists "sc:help/sc_change.guide")
  1043.       (
  1044.      (working "Patching sc_change.guide")
  1045.      (run ("t:temp_6.3_patch_x12/spatch -osc:help/sc_change.guide -pt:temp_6.3_patch_x123/sc_change.pch sasc_6.0_Disk_6:Online_help/help/sc_change.guide" ))
  1046.       )
  1047.    )
  1048.    (delete "t:temp_6.3_patch_x123/sc_change.pch")
  1049.  
  1050. (complete 79)
  1051.    (if (exists "sc:help/cpr.guide")
  1052.       (
  1053.      (working "Patching cpr.guide")
  1054.      (run ("t:temp_6.3_patch_x12/spatch -osc:help/cpr.guide -pt:temp_6.3_patch_x123/cprguide.pch sasc_6.0_Disk_6:Online_help/help/cpr.guide" ))
  1055.       )
  1056.    )
  1057.    (delete "t:temp_6.3_patch_x123/cprguide.pch")
  1058.  
  1059. (complete 80)
  1060.    (if (exists "sc:help/sc_lib.guide")
  1061.       (
  1062.      (working "Patching sc_lib.guide")
  1063.      (run ("t:temp_6.3_patch_x12/spatch -osc:help/sc_lib.guide -pt:temp_6.3_patch_x123/sc_lib.pch sasc_6.0_Disk_6:Online_help/help/sc_lib.guide" ))
  1064.       )
  1065.    )
  1066.  
  1067.    
  1068. (run "delete t:temp_6.3_patch_x123/#? quiet")
  1069. (copyfiles (source "autoopenfail.pch") (dest "t:temp_6.3_patch_x123"))
  1070. (copyfiles (source "_main.pch") (dest "t:temp_6.3_patch_x123"))
  1071. (copyfiles (source "_oserr.pch") (dest "t:temp_6.3_patch_x123"))
  1072. (copyfiles (source "ca.pch") (dest "t:temp_6.3_patch_x123"))
  1073. (copyfiles (source "_cxferr.pch") (dest "t:temp_6.3_patch_x123"))
  1074. (copyfiles (source "intuitlib.pch") (dest "t:temp_6.3_patch_x123"))
  1075. (copyfiles (source "cbacka.pch") (dest "t:temp_6.3_patch_x123"))
  1076. (copyfiles (source "libinitc.pch") (dest "t:temp_6.3_patch_x123"))
  1077. (copyfiles (source "instructions.pch") (dest "t:temp_6.3_patch_x123"))
  1078. (copyfiles (source "compile.pch") (dest "t:temp_6.3_patch_x123"))
  1079. (copyfiles (source "gotofile.pch") (dest "t:temp_6.3_patch_x123"))
  1080. (copyfiles (source "scmsgguide.pch") (dest "t:temp_6.3_patch_x123"))
  1081. (copyfiles (source "sc_util.pch") (dest "t:temp_6.3_patch_x123"))
  1082. (copyfiles (source "scguide.pch") (dest "t:temp_6.3_patch_x123"))
  1083. (copyfiles (source "test.pch") (dest "t:temp_6.3_patch_x123"))
  1084. (copyfiles (source "readme.pch") (dest "t:temp_6.3_patch_x123"))
  1085.  
  1086.    (askdisk (assigns) (dest "SASC_6.0_Disk_7")
  1087.         (prompt "Please Insert Disk 7 of the SAS/C Development System")
  1088.         (help "Insert Disk 7 in any drive. The files will be read from "
  1089.           "Disk 7, and placed in SC:. Nothing on Disk 7 will be "
  1090.           "modified." 
  1091.         )
  1092.    ) 
  1093.    
  1094. (complete 81)
  1095.    (if (exists "sc:source/autoopenfail.c")
  1096.       (
  1097.      (working "Patching autoopenfail.c")
  1098.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/autoopenfail.c -pt:temp_6.3_patch_x123/autoopenfail.pch sasc_6.0_Disk_7:Source_And_Examples/source/autoopenfail.c" ))
  1099.       )
  1100.    )
  1101. (complete 82)
  1102.    (if (exists "sc:source/_main.c")
  1103.       (
  1104.      (working "Patching _main.c")
  1105.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/_main.c -pt:temp_6.3_patch_x123/_main.pch sasc_6.0_Disk_7:Source_And_Examples/source/_main.c" ))
  1106.       )
  1107.    )
  1108. (complete 83)
  1109.    (if (exists "sc:source/_oserr.c")
  1110.       (
  1111.      (working "Patching _oserr.c")
  1112.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/_oserr.c -pt:temp_6.3_patch_x123/_oserr.pch sasc_6.0_Disk_7:Source_And_Examples/source/_oserr.c" ))
  1113.       )
  1114.    )
  1115. (complete 84)
  1116.    (if (exists "sc:source/intuitlib.c")
  1117.       (
  1118.      (working "Patching intuitlib.c")
  1119.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/intuitlib.c -pt:temp_6.3_patch_x123/intuitlib.pch sasc_6.0_Disk_7:Source_And_Examples/source/intuitlib.c" ))
  1120.       )
  1121.    )
  1122. (complete 85)
  1123.    (if (exists "sc:source/c.a")
  1124.       (
  1125.      (working "Patching c.a")
  1126.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/c.a -pt:temp_6.3_patch_x123/ca.pch sasc_6.0_Disk_7:Source_And_Examples/source/c.a" ))
  1127.       )
  1128.    )
  1129.  
  1130. (complete 87)
  1131.    (if (exists "sc:source/cback.a")
  1132.       (
  1133.      (working "Patching cback.a")
  1134.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/cback.a -pt:temp_6.3_patch_x123/cbacka.pch sasc_6.0_Disk_7:Source_And_Examples/source/cback.a" ))
  1135.       )
  1136.    )
  1137. (complete 88)
  1138.    (if (exists "sc:source/libinit.c")
  1139.       (
  1140.      (working "Patching libinit.c")
  1141.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/libinit.c -pt:temp_6.3_patch_x123/libinitc.pch sasc_6.0_Disk_7:Source_And_Examples/source/libinit.c" ))
  1142.       )
  1143.    )
  1144. (complete 89)
  1145.    (if (exists "sc:source/_cxferr.c")
  1146.       (
  1147.      (working "Patching _cxferr.c")
  1148.      (run ("t:temp_6.3_patch_x12/spatch -osc:source/_cxferr.c -pt:temp_6.3_patch_x123/_cxferr.pch sasc_6.0_Disk_7:Source_And_Examples/source/_cxferr.c" ))
  1149.       )
  1150.    )
  1151. (complete 91)
  1152.    (if (exists "sc:help/scmsg.guide")
  1153.       (
  1154.      (working "Patching scmsg.guide")
  1155.      (run ("t:temp_6.3_patch_x12/spatch -osc:help/scmsg.guide -pt:temp_6.3_patch_x123/scmsgguide.pch sasc_6.0_Disk_7:Online_help/help/scmsg.guide" ))
  1156.       )
  1157.    )
  1158. (complete 93)
  1159.    (if (exists "sc:help/sc_util.guide")
  1160.       (
  1161.      (working "Patching sc_util.guide")
  1162.      (run ("t:temp_6.3_patch_x12/spatch -osc:help/sc_util.guide -pt:temp_6.3_patch_x123/sc_util.pch sasc_6.0_Disk_7:Online_help/help/sc_util.guide" ))
  1163.       )
  1164.    )
  1165. (complete 95)
  1166.    (if (exists "sc:help/sc.guide")
  1167.       (
  1168.      (working "Patching sc.guide")
  1169.      (run ("t:temp_6.3_patch_x12/spatch -osc:help/sc.guide -pt:temp_6.3_patch_x123/scguide.pch sasc_6.0_Disk_7:Online_help/help/sc.guide" ))
  1170.       )
  1171.    )
  1172.    
  1173. (complete 97)
  1174.  
  1175.    (if (exists "sc:extras/TTX/instructions")
  1176.       (
  1177.      (working "Patching ttx/instructions")
  1178.      (run ("t:temp_6.3_patch_x12/spatch -osc:extras/TTX/instructions -pt:temp_6.3_patch_x123/instructions.pch sasc_6.0_Disk_7:Source_And_Examples/extras/TTX/instructions" ))
  1179.       )
  1180.    )
  1181.  
  1182.    (if (exists "sc:extras/CED/rexx/ced/compile.ced")
  1183.       (
  1184.      (working "Patching ced/rexx/ced/compile.ced")
  1185.      (run ("t:temp_6.3_patch_x12/spatch -osc:extras/ced/rexx/ced/compile.ced -pt:temp_6.3_patch_x123/compile.pch sasc_6.0_Disk_7:Source_And_Examples/extras/ced/rexx/ced/compile.ced" ))
  1186.       )
  1187.    )
  1188.  
  1189.    (if (exists "sc:extras/CED/rexx/ced/gotofile.ced")
  1190.       (
  1191.      (working "Patching ced/rexx/ced/gotofile.ced")
  1192.      (run ("t:temp_6.3_patch_x12/spatch -osc:extras/ced/rexx/ced/gotofile.ced -pt:temp_6.3_patch_x123/gotofile.pch sasc_6.0_Disk_7:Source_And_Examples/extras/ced/rexx/ced/gotofile.ced" ))
  1193.       )
  1194.    )
  1195.  
  1196. (complete 98)
  1197.    (if (and (exists "sc:extras/TTX/rexx") (not (exists "sc:extras/TTX/TTX_SASC")))
  1198.       (
  1199.      (rename "sc:extras/TTX/rexx" "sc:extras/TTX/TTX_SASC")
  1200.       )
  1201.    )
  1202.  
  1203.    (if (exists "sc:examples/samplelib/test.fd.info")
  1204.       (
  1205.      (working "Patching examples/samplelib/test.fd.info")
  1206.      (run ("t:temp_6.3_patch_x12/spatch -osc:examples/samplelib/test.fd.info -pt:temp_6.3_patch_x123/test.pch sasc_6.0_Disk_7:Source_And_Examples/examples/samplelib/test.fd.info" ))
  1207.       )
  1208.    )
  1209.  
  1210.    (if (exists "sc:examples/samplelib/readme.info")
  1211.       (
  1212.      (working "Patching examples/samplelib/readme.info")
  1213.      (run ("t:temp_6.3_patch_x12/spatch -osc:examples/samplelib/readme.info -pt:temp_6.3_patch_x123/readme.pch sasc_6.0_Disk_7:Source_And_Examples/examples/samplelib/readme.info" ))
  1214.       )
  1215.    )
  1216.  
  1217.    
  1218.    (copyfiles (source "readme_6.3") (dest "sc:"))
  1219.  
  1220.    (copyfiles (source "utillib.with") (dest "sc:lib"))
  1221.  
  1222.    (if (exists "sc:help")
  1223.     (
  1224.      (copyfiles (source "sc_6.3.guide") 
  1225.         (dest "sc:help")
  1226.      )
  1227.      (copyfiles (source "sc_6.3.guide.inf") 
  1228.         (dest "sc:help") 
  1229.         (newname "sc_6.3.guide.info")
  1230.      )
  1231.     )
  1232.    ) 
  1233.  
  1234.    (copyfiles (source "readme_6.3.inf") 
  1235.           (dest "sc:")
  1236.           (newname "ReadMe_6.3.info")
  1237.    )
  1238.    
  1239.    (if (and (exists "sc:c/amigaguide") (exists "sc:help/sc_6.3.guide"))
  1240.      (run "run sc:c/amigaguide sc:help/sc_6.3.guide")
  1241.      (run "run t:temp_6.3_patch_x12/more sc:readme_6.3")
  1242.    )
  1243.    
  1244.  
  1245. (complete 99)
  1246.  
  1247.  
  1248. (run "t:temp_6.3_patch_x12/flush")
  1249. (run "delete t:temp_6.3_patch_x12 all quiet")
  1250. (run "delete t:temp_6.3_patch_x123 all quiet")
  1251.  
  1252.  
  1253. (complete 100)
  1254.  
  1255. )
  1256. ; else do floppy install
  1257. (
  1258.    
  1259.    (set @default-dest "")
  1260.    (copyfiles (source "c:delete") (dest "t:temp_6.3_patch_x12"))
  1261.  
  1262. ; need to make some room, since the patch increases the size of things
  1263. (set version (/ (getversion) 65536))
  1264.  
  1265. (if (< version 36)
  1266.   (
  1267.      (copyfiles (source "c:run") (dest "ram:"))
  1268.      (makeassign "c" "ram:")
  1269.   )
  1270. )
  1271.  
  1272.    (set thirddisk (askbool
  1273.            (prompt "This procedure will patch the 2 or 3 disk set "
  1274.                "created by the Floppy install from the compiler "
  1275.                "installation. Did you create the 3 disk set?"
  1276.            ) 
  1277.            (help "Click Yes to patch the 3 disk set, or No for the "
  1278.              "2 disk set."
  1279.            )
  1280.           )
  1281.    )
  1282.  
  1283. (makedir "t:temp_6.3_patch_x123")
  1284. (makedir "t:temp_6.3_patch_x12")
  1285. (copyfiles (source "sc.pch") (dest "t:temp_6.3_patch_x123"))
  1286. (copyfiles (source "smake.pch") (dest "t:temp_6.3_patch_x123"))
  1287. (copyfiles (source "slink.pch") (dest "t:temp_6.3_patch_x123"))
  1288. (copyfiles (source "se.pch") (dest "t:temp_6.3_patch_x123"))
  1289. (copyfiles (source "sedat.pch") (dest "t:temp_6.3_patch_x123"))
  1290. (copyfiles (source "scopts.pch") (dest "t:temp_6.3_patch_x123"))
  1291. (copyfiles (source "scmsg.pch") (dest "t:temp_6.3_patch_x123"))
  1292. (copyfiles (source "sc1.pch") (dest "t:temp_6.3_patch_x123"))
  1293. (copyfiles (source "sc2.pch") (dest "t:temp_6.3_patch_x123"))
  1294. (copyfiles (source "scdebug.pch") (dest "t:temp_6.3_patch_x123"))
  1295. (copyfiles (source "schi.pch") (dest "t:temp_6.3_patch_x123"))
  1296.  
  1297. (copyfiles (source "SASC_6.0_Disk_1:more") (dest "t:temp_6.3_patch_x12"))
  1298.  
  1299.  
  1300.  
  1301.  
  1302. (if (>= version 36)
  1303.   (
  1304.      (if (exists "SAS_1:l/queue-handler")
  1305.        (delete "SAS_1:l/queue-handler") ; 2.0 has this
  1306.      )
  1307.      (if (exists "SAS_1:libs/diskfont.library")
  1308.        (delete "SAS_1:libs/diskfont.library") 
  1309.      )
  1310.   )   
  1311.   (
  1312.      ; delete these under 1.3
  1313.      (if (exists "SAS_1:c/avail")
  1314.      (delete "SAS_1:c/avail")
  1315.      )
  1316.      (if (exists "SAS_1:c/setclock")
  1317.          (delete "SAS_1:c/setclock")
  1318.      )
  1319.   )
  1320. )
  1321.  
  1322.  
  1323. (complete 1)
  1324.    (if (exists "SAS_1:sc/c/sc")
  1325.      (
  1326.       (working "Patching sc")
  1327.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/c/sc -pt:temp_6.3_patch_x123/sc.pch SASC_6.0_Disk_1:compiler/c/sc"))
  1328.      )
  1329.    )
  1330.    (delete "t:temp_6.3_patch_x123/sc.pch")
  1331.  
  1332. (complete 5)
  1333.    (if (exists "SAS_1:sc/c/se")
  1334.      (
  1335.       (working "Patching se")
  1336.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/c/se -pt:temp_6.3_patch_x123/se.pch SASC_6.0_Disk_1:compiler/c/se"))
  1337.      )
  1338.    )
  1339.    (delete "t:temp_6.3_patch_x123/se.pch")
  1340.  
  1341. (complete 8)
  1342.    (if (exists "SAS_1:sc/env/se.dat")
  1343.      (
  1344.       (working "Patching se.dat")
  1345.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/env/se.dat -pt:temp_6.3_patch_x123/sedat.pch SASC_6.0_Disk_1:compiler/env/se.dat"))
  1346.      )
  1347.    )
  1348.    (delete "t:temp_6.3_patch_x123/sedat.pch")
  1349.    
  1350. (complete 12)
  1351.    (if (exists "SAS_1:sc/c/slink")
  1352.      (
  1353.       (working "Patching slink")
  1354.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/c/slink -pt:temp_6.3_patch_x123/slink.pch SASC_6.0_Disk_1:compiler/c/slink"))
  1355.      )
  1356.    )
  1357.    (delete "t:temp_6.3_patch_x123/slink.pch")
  1358.  
  1359. (complete 15)
  1360.    (if (exists "SAS_1:sc/c/smake")
  1361.      (
  1362.       (working "Patching smake")
  1363.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/c/smake -pt:temp_6.3_patch_x123/smake.pch SASC_6.0_Disk_1:compiler/c/smake"))
  1364.      )
  1365.    )
  1366.    (delete "t:temp_6.3_patch_x123/smake.pch")
  1367.  
  1368. (complete 18)
  1369.    (if (exists "SAS_1:sc/c/scopts")
  1370.      (
  1371.       (working "Patching scopts")
  1372.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/c/scopts -pt:temp_6.3_patch_x123/scopts.pch SASC_6.0_Disk_1:compiler/c/scopts"))
  1373.      )
  1374.    )
  1375.    (delete "t:temp_6.3_patch_x123/scopts.pch")
  1376.    
  1377. (complete 21)
  1378.    (if (exists "SAS_1:sc/c/scmsg")
  1379.      (
  1380.       (working "Patching scmsg")
  1381.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/c/scmsg -pt:temp_6.3_patch_x123/scmsg.pch SASC_6.0_Disk_1:compiler/c/scmsg"))
  1382.      )
  1383.    )
  1384.    (delete "t:temp_6.3_patch_x123/scmsg.pch")
  1385.  
  1386. (complete 25)
  1387.    (if (exists "SAS_1:sc/libs/sc1.library")
  1388.      (
  1389.       (working "Patching sc1.library")
  1390.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/libs/sc1.library -pt:temp_6.3_patch_x123/sc1.pch SASC_6.0_Disk_1:compiler/libs/sc1.library"))
  1391.      )
  1392.    )
  1393.    (delete "t:temp_6.3_patch_x123/sc1.pch")
  1394.  
  1395. (complete 29)
  1396.    (if (exists "SAS_1:sc/libs/sc2.library")
  1397.      (
  1398.       (working "Patching sc2.library")
  1399.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/libs/sc2.library -pt:temp_6.3_patch_x123/sc2.pch SASC_6.0_Disk_1:compiler/libs/sc2.library"))
  1400.      )
  1401.    )
  1402.    (delete "t:temp_6.3_patch_x123/sc2.pch")
  1403.  
  1404.    (if (exists "SAS_1:sc/libs/scdebug.library")
  1405.      (
  1406.       (working "Patching scdebug.library")
  1407.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/libs/scdebug.library -pt:temp_6.3_patch_x123/scdebug.pch SASC_6.0_Disk_1:compiler/libs/scdebug.library"))
  1408.      )
  1409.    )
  1410.  
  1411. (complete 33)
  1412.    (if (exists "SAS_1:sc/libs/schi.library")
  1413.      (
  1414.       (working "Patching schi.library")
  1415.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_1:sc/libs/schi.library -pt:temp_6.3_patch_x123/schi.pch SASC_6.0_Disk_3:debugger/libs/schi.library"))
  1416.      )
  1417.    )
  1418.  
  1419. (run "t:temp_6.3_patch_x12/delete t:temp_6.3_patch_x123/#? quiet")
  1420. (copyfiles (source "sclib.pch") (dest "t:temp_6.3_patch_x123"))
  1421. (copyfiles (source "scm.pch") (dest "t:temp_6.3_patch_x123"))
  1422. (copyfiles (source "c.pch") (dest "t:temp_6.3_patch_x123"))
  1423. (copyfiles (source "cres.pch") (dest "t:temp_6.3_patch_x123"))
  1424. (copyfiles (source "catch.pch") (dest "t:temp_6.3_patch_x123"))
  1425. (copyfiles (source "catchres.pch") (dest "t:temp_6.3_patch_x123"))
  1426. (copyfiles (source "catchresnr.pch") (dest "t:temp_6.3_patch_x123"))
  1427. (copyfiles (source "catchnr.pch") (dest "t:temp_6.3_patch_x123"))
  1428. (copyfiles (source "cback.pch") (dest "t:temp_6.3_patch_x123"))
  1429. (copyfiles (source "cpr.pch") (dest "t:temp_6.3_patch_x123"))
  1430. (copyfiles (source "fcntl.pch") (dest "t:temp_6.3_patch_x123"))
  1431. (copyfiles (source "stdlib.pch") (dest "t:temp_6.3_patch_x123"))
  1432. (copyfiles (source "math.pch") (dest "t:temp_6.3_patch_x123"))
  1433. (copyfiles (source "stat.pch") (dest "t:temp_6.3_patch_x123"))
  1434. (copyfiles (source "dos.pch") (dest "t:temp_6.3_patch_x123"))
  1435. (copyfiles (source "m68881.pch") (dest "t:temp_6.3_patch_x123"))
  1436. (copyfiles (source "mffp.pch") (dest "t:temp_6.3_patch_x123"))
  1437. (copyfiles (source "mieeedoub.pch") (dest "t:temp_6.3_patch_x123"))
  1438. (copyfiles (source "stdarg.pch") (dest "t:temp_6.3_patch_x123"))
  1439. (copyfiles (source "dir.pch") (dest "t:temp_6.3_patch_x123"))
  1440. (copyfiles (source "all.pch") (dest "t:temp_6.3_patch_x123"))
  1441. (copyfiles (source "layers.pch") (dest "t:temp_6.3_patch_x123"))
  1442. (copyfiles (source "intuition_pragmas.pch") (dest "t:temp_6.3_patch_x123"))
  1443. (copyfiles (source "exec_pragmas.pch") (dest "t:temp_6.3_patch_x123"))
  1444. (copyfiles (source "exec_sysbase_pragmas.pch") (dest "t:temp_6.3_patch_x123"))
  1445. (copyfiles (source "all_protos.pch") (dest "t:temp_6.3_patch_x123"))
  1446. (copyfiles (source "all.pch") (dest "t:temp_6.3_patch_x123"))
  1447. (copyfiles (source "stdio.pch") (dest "t:temp_6.3_patch_x123"))
  1448.  
  1449. (complete 38)
  1450.    (if (exists "SAS_2:sc/lib/sc.lib")
  1451.      (
  1452.       (working "Patching sc.lib")
  1453.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/sc.lib -pt:temp_6.3_patch_x123/sclib.pch SASC_6.0_Disk_2:libraries/lib/sc.lib"))
  1454.      )
  1455.    )
  1456.    (delete "t:temp_6.3_patch_x123/sclib.pch")
  1457.  
  1458. (complete 42)
  1459.    (if (exists "SAS_2:sc/lib/scm.lib")
  1460.      (
  1461.       (working "Patching scm.lib")
  1462.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/scm.lib -pt:temp_6.3_patch_x123/scm.pch SASC_6.0_Disk_2:libraries/lib/scm.lib"))
  1463.      )
  1464.    )
  1465.    (delete "t:temp_6.3_patch_x123/scm.pch")
  1466.  
  1467. (complete 45)
  1468.    (if (exists "SAS_2:sc/lib/c.o")
  1469.       (
  1470.      (working "Patching c.o")
  1471.      (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/c.o -pt:temp_6.3_patch_x123/c.pch sasc_6.0_Disk_2:libraries/lib/c.o" ))
  1472.       )
  1473.    )
  1474.    (delete "t:temp_6.3_patch_x123/c.pch")
  1475.    
  1476. (complete 47)
  1477.    (if (exists "SAS_2:sc/lib/cres.o")
  1478.       (
  1479.      (working "Patching cres.o")
  1480.      (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/cres.o -pt:temp_6.3_patch_x123/cres.pch sasc_6.0_Disk_2:libraries/lib/cres.o" ))
  1481.       )
  1482.    )
  1483.    (delete "t:temp_6.3_patch_x123/cres.pch")
  1484.    
  1485. (complete 49)
  1486.    (if (exists "SAS_2:sc/lib/catch.o")
  1487.       (
  1488.      (working "Patching catch.o")
  1489.      (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/catch.o -pt:temp_6.3_patch_x123/catch.pch sasc_6.0_Disk_2:libraries/lib/catch.o" ))
  1490.       )
  1491.    )
  1492.    (delete "t:temp_6.3_patch_x123/catch.pch")
  1493.    
  1494. (complete 53)
  1495.    (if (exists "SAS_2:sc/lib/catchresnr.o")
  1496.       (
  1497.      (working "Patching catchresnr.o")
  1498.      (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/catchresnr.o -pt:temp_6.3_patch_x123/catchresnr.pch sasc_6.0_Disk_2:libraries/lib/catchresnr.o" ))
  1499.       )
  1500.    )
  1501.    (delete "t:temp_6.3_patch_x123/catchresnr.pch")
  1502.    
  1503. (complete 56)
  1504.    (if (exists "SAS_2:sc/lib/catchres.o")
  1505.       (
  1506.      (working "Patching catchres.o")
  1507.      (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/catchres.o -pt:temp_6.3_patch_x123/catchres.pch sasc_6.0_Disk_2:libraries/lib/catchres.o" ))
  1508.       )
  1509.    )
  1510.    (delete "t:temp_6.3_patch_x123/catchres.pch")
  1511.    
  1512. (complete 59)
  1513.    (if (exists "SAS_2:sc/lib/catchnr.o")
  1514.       (
  1515.      (working "Patching catchnr.o")
  1516.      (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/catchnr.o -pt:temp_6.3_patch_x123/catchnr.pch sasc_6.0_Disk_2:libraries/lib/catchnr.o" ))
  1517.       )
  1518.    )
  1519.    (delete "t:temp_6.3_patch_x123/catchnr.pch")
  1520.    
  1521. (complete 61)
  1522.    (if (exists "SAS_2:sc/lib/cback.o")
  1523.       (
  1524.      (working "Patching cback.o")
  1525.      (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/lib/cback.o -pt:temp_6.3_patch_x123/cback.pch sasc_6.0_Disk_2:libraries/lib/cback.o" ))
  1526.       )
  1527.    )
  1528.    (delete "t:temp_6.3_patch_x123/cback.pch")
  1529.    
  1530. (complete 63)
  1531.    (if (exists "SAS_2:sc/c/cpr")
  1532.      (
  1533.       (working "Patching cpr")
  1534.       (run ("t:temp_6.3_patch_x12/spatch -oSAS_2:sc/c/cpr -pt:temp_6.3_patch_x123/cpr.pch SASC_6.0_Disk_3:debugger/c/cpr"))
  1535.      )
  1536.    )
  1537.  
  1538.  
  1539. (complete 67)
  1540.    (if (exists "SAS_2:sc/include/fcntl.h")
  1541.      (
  1542.        (working "Patching fcntl.h")
  1543.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/fcntl.pch SASC_6.0_Disk_3:Compiler_headers/include/fcntl.h"))
  1544.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/fcntl.h"))
  1545.      )
  1546.    )
  1547.  
  1548.    (if (exists "SAS_2:sc/include/stdlib.h")
  1549.      (
  1550.        (working "Patching stdlib.h")
  1551.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/stdlib.pch SASC_6.0_Disk_3:Compiler_headers/include/stdlib.h"))
  1552.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/stdlib.h"))
  1553.      )
  1554.    )
  1555.  
  1556.    (if (exists "SAS_2:sc/include/math.h")
  1557.      (
  1558.        (working "Patching math.h")
  1559.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/math.pch SASC_6.0_Disk_3:Compiler_headers/include/math.h"))
  1560.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/math.h"))
  1561.      )
  1562.    )
  1563.    
  1564. (complete 69)
  1565.    (if (exists "SAS_2:sc/include/stat.h")
  1566.      (
  1567.        (working "Patching stat.h")
  1568.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/stat.pch SASC_6.0_Disk_3:Compiler_headers/include/stat.h"))
  1569.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/stat.h"))
  1570.      )
  1571.    )
  1572.    
  1573. (complete 70)
  1574.    (if (exists "SAS_2:sc/include/dos.h")
  1575.      (
  1576.        (working "Patching dos.h")
  1577.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/dos.pch SASC_6.0_Disk_3:Compiler_headers/include/dos.h"))
  1578.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/dos.h"))
  1579.      )
  1580.    )
  1581.    
  1582. (complete 71)
  1583.    (if (exists "SAS_2:sc/include/m68881.h")
  1584.      (
  1585.        (working "Patching m68881.h")
  1586.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/m68881.pch SASC_6.0_Disk_3:Compiler_headers/include/m68881.h"))
  1587.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/m68881.h"))
  1588.      )
  1589.    )
  1590.    (if (exists "SAS_2:sc/include/mffp.h")
  1591.      (
  1592.        (working "Patching mffp.h")
  1593.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/mffp.pch SASC_6.0_Disk_3:Compiler_headers/include/mffp.h"))
  1594.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/mffp.h"))
  1595.      )
  1596.    )
  1597.    (if (exists "SAS_2:sc/include/mieeedoub.h")
  1598.      (
  1599.        (working "Patching mieeedoub.h")
  1600.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/mieeedoub.pch SASC_6.0_Disk_3:Compiler_headers/include/mieeedoub.h"))
  1601.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/mieeedoub.h"))
  1602.      )
  1603.    )
  1604.  
  1605. (complete 72)
  1606.    (if (exists "SAS_2:sc/include/stdarg.h")
  1607.      (
  1608.        (working "Patching stdarg.h")
  1609.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/stdarg.pch SASC_6.0_Disk_3:Compiler_headers/include/stdarg.h"))
  1610.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/stdarg.h"))
  1611.      )
  1612.    )
  1613.    
  1614.  
  1615. (complete 73)
  1616.    (if (exists "SAS_2:sc/include/sys/dir.h")
  1617.      (
  1618.        (working "Patching sys/dir.h")
  1619.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/dir.pch SASC_6.0_Disk_3:Compiler_headers/include/sys/dir.h"))
  1620.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/sys/dir.h"))
  1621.      )
  1622.    )
  1623.    
  1624.  
  1625.  
  1626. (complete 74)
  1627.    (if (exists "SAS_2:sc/include/stdio.h")
  1628.      (
  1629.        (working "Patching stdio.h")
  1630.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/stdio.pch SASC_6.0_Disk_3:Compiler_headers/include/stdio.h"))
  1631.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/stdio.h"))
  1632.      )
  1633.    )
  1634.  
  1635. ; this one just needs to be recompressed
  1636. (complete 75)
  1637.    (if (exists "SAS_2:sc/include/dos/stdio.h")
  1638.      (
  1639.        (working "Patching dos/stdio.h")
  1640.        (copyfiles 
  1641.       (source "SASC_6.0_Disk_4:Compiler_headers/include/dos/stdio.h")
  1642.       (dest "t:temp_6.3_patch_x123")
  1643.        )
  1644.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_6.3_patch_x123/stdio.h SAS_2:sc/include/dos/stdio.h"))
  1645.      )
  1646.    )
  1647.  
  1648. (complete 76)
  1649.    (if (exists "SAS_2:sc/include/proto/all.h")
  1650.      (
  1651.        (working "Patching proto/all.h")
  1652.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/all.pch SASC_6.0_Disk_4:Compiler_headers/include/proto/all.h"))
  1653.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/proto/all.h"))
  1654.      )
  1655.    )
  1656.    
  1657. (complete 77)
  1658.    (if (exists "SAS_2:sc/include/proto/layers.h")
  1659.      (
  1660.        (working "Patching proto/layers.h")
  1661.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/layers.pch SASC_6.0_Disk_4:Compiler_headers/include/proto/layers.h"))
  1662.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/proto/layers.h"))
  1663.      )
  1664.    )
  1665.    
  1666. (complete 78)
  1667.    (if (exists "SAS_2:sc/include/pragmas/intuition_pragmas.h")
  1668.      (
  1669.        (working "Patching pragmas/intuition_pragmas.h")
  1670.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/intuition_pragmas.pch SASC_6.0_Disk_4:Compiler_headers/include/pragmas/intuition_pragmas.h"))
  1671.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/pragmas/intuition_pragmas.h"))
  1672.      )
  1673.    )
  1674.  
  1675.    (if (exists "SAS_2:sc/include/pragmas/exec_pragmas.h")
  1676.      (
  1677.        (working "Patching pragmas/exec_pragmas.h")
  1678.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/exec_pragmas.pch SASC_6.0_Disk_4:Compiler_headers/include/pragmas/exec_pragmas.h"))
  1679.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/pragmas/exec_pragmas.h"))
  1680.      )
  1681.    )
  1682.  
  1683.    (if (exists "SAS_2:sc/include/pragmas/exec_sysbase_pragmas.h")
  1684.      (
  1685.        (working "Patching pragmas/exec_sysbase.h")
  1686.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/exec_sysbase_pragmas.pch SASC_6.0_Disk_4:Compiler_headers/include/pragmas/exec_sysbase_pragmas.h"))
  1687.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/pragmas/exec_sysbase_pragmas.h"))
  1688.      )
  1689.    )
  1690.  
  1691.    (if (exists "SAS_2:sc/include/clib/all_protos.h")
  1692.      (
  1693.        (working "Patching clib/all_protos.h")
  1694.        (run ("t:temp_6.3_patch_x12/spatch -ot:temp_header.h -pt:temp_6.3_patch_x123/all_protos.pch SASC_6.0_Disk_4:Compiler_headers/include/clib/all_protos.h"))
  1695.        (run ("t:temp_6.3_patch_x12/scompact force t:temp_header.h SAS_2:sc/include/clib/all_protos.h"))
  1696.      )
  1697.    )
  1698.    
  1699.  
  1700.    (if (= 1 thirddisk)
  1701.      (
  1702.  
  1703. (run "t:temp_6.3_patch_x12/delete t:temp_6.3_patch_x123/#? quiet")
  1704. (copyfiles (source "scpeep.pch") (dest "t:temp_6.3_patch_x123"))
  1705. (copyfiles (source "scgo.pch") (dest "t:temp_6.3_patch_x123"))
  1706. (copyfiles (source "sekeymap.pch") (dest "t:temp_6.3_patch_x123"))
  1707. (copyfiles (source "sclist.pch") (dest "t:temp_6.3_patch_x123"))
  1708. (copyfiles (source "oml.pch") (dest "t:temp_6.3_patch_x123"))
  1709. (copyfiles (source "omd.pch") (dest "t:temp_6.3_patch_x123"))
  1710. (copyfiles (source "hypergst.pch") (dest "t:temp_6.3_patch_x123"))
  1711. (copyfiles (source "dumpobj.pch") (dest "t:temp_6.3_patch_x123"))
  1712. (copyfiles (source "lstat.pch") (dest "t:temp_6.3_patch_x123"))
  1713. (copyfiles (source "lprof.pch") (dest "t:temp_6.3_patch_x123"))
  1714. (copyfiles (source "sc5.pch") (dest "t:temp_6.3_patch_x123"))
  1715. (copyfiles (source "tb.pch") (dest "t:temp_6.3_patch_x123"))
  1716. (copyfiles (source "lctosc.pch") (dest "t:temp_6.3_patch_x123"))
  1717.  
  1718. (complete 79)
  1719.     (if (exists "SAS_3:sc/c/scompact")
  1720.       (
  1721.          (copyfiles (source "t:temp_6.3_patch_x12/scompact")
  1722.             (dest "SAS_3:sc/c")
  1723.          )
  1724.       )
  1725.     )
  1726.  
  1727. (complete 81)
  1728.     (if (exists "SAS_3:sc/libs/scpeep.library")
  1729.       (
  1730.         (working "Patching scpeep.library")
  1731.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/libs/scpeep.library -pt:temp_6.3_patch_x123/scpeep.pch sasc_6.0_Disk_3:Optimizers/libs/scpeep.library" ))
  1732.       )
  1733.     )
  1734.         (delete "t:temp_6.3_patch_x123/scpeep.pch")
  1735.     
  1736. (complete 83)
  1737.     (if (exists "SAS_3:sc/libs/sekeymap.library")
  1738.       (
  1739.         (working "Patching sekeymap.library")
  1740.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/libs/sekeymap.library -pt:temp_6.3_patch_x123/sekeymap.pch sasc_6.0_Disk_5:Extra_Utilities/libs/sekeymap.library" ))
  1741.       )
  1742.     )
  1743.         (delete "t:temp_6.3_patch_x123/sekeymap.pch")
  1744.     
  1745.     (if (exists "SAS_3:sc/libs/sclist.library")
  1746.       (
  1747.         (working "Patching sclist.library")
  1748.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/libs/sclist.library -pt:temp_6.3_patch_x123/sclist.pch sasc_6.0_Disk_5:Extra_Utilities/libs/sclist.library" ))
  1749.       )
  1750.     )
  1751.         (delete "t:temp_6.3_patch_x123/sclist.pch")
  1752.     
  1753. (complete 85)
  1754.     (if (exists "SAS_3:sc/c/dumpobj")
  1755.       (
  1756.         (working "Patching dumpobj")
  1757.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/dumpobj -pt:temp_6.3_patch_x123/dumpobj.pch sasc_6.0_Disk_5:Extra_Utilities/c/dumpobj" ))
  1758.       )
  1759.     )
  1760.         (delete "t:temp_6.3_patch_x123/dumpobj.pch")
  1761.  
  1762. (complete 86)
  1763.     (if (exists "SAS_3:sc/c/omd")
  1764.       (
  1765.         (working "Patching omd")
  1766.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/omd -pt:temp_6.3_patch_x123/omd.pch sasc_6.0_Disk_5:Extra_Utilities/c/omd" ))
  1767.       )
  1768.     )
  1769.         (delete "t:temp_6.3_patch_x123/omd.pch")
  1770.  
  1771. (complete 87)
  1772.     (if (exists "SAS_3:sc/c/hypergst")
  1773.       (
  1774.         (working "Patching hypergst")
  1775.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/hypergst -pt:temp_6.3_patch_x123/hypergst.pch sasc_6.0_Disk_5:Extra_Utilities/c/hypergst" ))
  1776.       )
  1777.     )
  1778.         (delete "t:temp_6.3_patch_x123/hypergst.pch")
  1779.    
  1780. (complete 88)
  1781.     (if (exists "SAS_3:sc/c/oml")
  1782.       (
  1783.         (working "Patching oml")
  1784.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/oml -pt:temp_6.3_patch_x123/oml.pch sasc_6.0_Disk_6:Extra_Utilities/c/oml" ))
  1785.       )
  1786.     )
  1787.         (delete "t:temp_6.3_patch_x123/oml.pch")
  1788.     
  1789. (complete 90)
  1790.     (if (exists "SAS_3:sc/c/lstat")
  1791.       (
  1792.         (working "Patching lstat")
  1793.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/lstat -pt:temp_6.3_patch_x123/lstat.pch sasc_6.0_Disk_6:Extra_Utilities/c/lstat" ))
  1794.       )
  1795.     )
  1796.         (delete "t:temp_6.3_patch_x123/lstat.pch")
  1797.    
  1798. (complete 92)
  1799.     (if (exists "SAS_3:sc/c/lprof")
  1800.       (
  1801.         (working "Patching lprof")
  1802.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/lprof -pt:temp_6.3_patch_x123/lprof.pch sasc_6.0_Disk_6:Extra_Utilities/c/lprof" ))
  1803.       )
  1804.     )
  1805.         (delete "t:temp_6.3_patch_x123/lprof.pch")
  1806.    
  1807. (complete 94)
  1808.     (if (exists "SAS_3:sc/c/sc5")
  1809.       (
  1810.         (working "Patching sc5")
  1811.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/sc5 -pt:temp_6.3_patch_x123/sc5.pch sasc_6.0_Disk_6:Extra_Utilities/c/sc5" ))
  1812.       )
  1813.     )
  1814.         (delete "t:temp_6.3_patch_x123/sc5.pch")
  1815.  
  1816. (complete 96)
  1817.     (if (exists "SAS_3:sc/c/tb")
  1818.       (
  1819.         (working "Patching tb")
  1820.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/tb -pt:temp_6.3_patch_x123/tb.pch sasc_6.0_Disk_6:Extra_Utilities/c/tb" ))
  1821.       )
  1822.     )
  1823.         (delete "t:temp_6.3_patch_x123/tb.pch")
  1824.  
  1825. (complete 98)
  1826.     (if (exists "SAS_3:sc/c/lctosc")
  1827.       (
  1828.         (working "Patching lctosc")
  1829.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/c/lctosc -pt:temp_6.3_patch_x123/lctosc.pch sasc_6.0_Disk_6:Extra_Utilities/c/lctosc" ))
  1830.       )
  1831.     )
  1832.         (delete "t:temp_6.3_patch_x123/lctosc.pch")
  1833.  
  1834.  
  1835.     (if (exists "SAS_3:sc/libs/scgo.library")
  1836.       (
  1837.         (working "Patching scgo.library")
  1838.         (run ("t:temp_6.3_patch_x12/spatch -oSAS_3:sc/libs/scgo.library -pt:temp_6.3_patch_x123/scgo.pch sasc_6.0_Disk_3:Optimizers/libs/scgo.library" ))
  1839.       )
  1840.     )
  1841.  
  1842.  
  1843.       )
  1844.    )
  1845.  
  1846.  
  1847. (complete 99)
  1848. (run "t:temp_6.3_patch_x12/flush")
  1849. (run "t:temp_6.3_patch_x12/delete t:temp_6.3_patch_x123 all quiet")
  1850. (run "t:temp_6.3_patch_x12/delete t:temp_6.3_patch_x12 all quiet")
  1851.  
  1852.  
  1853. (complete 100)
  1854. )
  1855. )
  1856.    
  1857.    
  1858.